home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / z.amighp < prev    next >
Text File  |  1977-12-31  |  143b  |  19 lines
  1. DEF
  2. I J INTEGER
  3. ENDDEF
  4.  
  5. LOOP
  6.  I PUSH
  7.  IF I 50 >
  8.  THEN
  9.   EXIT
  10.  ELSE
  11.   WHILE J 200 <
  12.   DO
  13.    I 10 MUL
  14.    J STO
  15.   ENDWHILE
  16.   I INC
  17.  ENDIF
  18. ENDLOOP
  19.